<%

Function String_intervalo(texto, p1, p2)

	DIM pos1, pos2, tam2
	
	tam2 = len(p2)
	pos1 = InStr(texto, p1)
	pos2 = InStr(texto, p2)
	
	texto = Mid(texto,pos1,pos2-pos1+tam2)
	
	String_intervalo = texto
		
End Function

Function RemoveHTMLTags(ByVal strHTML)
    Dim objER
    Dim strTexto

    'Configurando o objeto de Expressão Regular
    Set objER            = New RegExp 
    objER.IgnoreCase    = True
    objER.Global        = True
    objER.Pattern        = "<[^>]*>"
    
    'Substituindo as tags encontradas pela expressão
    strTexto            = strHTML
    strTexto            = objER.Replace(strTexto, "")
    
    Set objER            = Nothing

    'Retornando a função
    RemoveHTMLTags = strTexto
End Function

Function quebra_linha(str)

	str = replace(str, vbcrlf, "<br/>")
	
	quebra_linha = str

End Function

%>